home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 021 - HO Utilities - Clock Utility System.dsk / CLOCK.UTILITY.bas < prev    next >
BASIC Source File  |  2019-02-16  |  319b  |  8 lines
  1. 100  REM CLOCK UTILITY
  2. 110  PRINT  CHR$(4)"BLOAD BIN.CLK.UTILITY": CALL 785
  3. 120  PRINT "SLOT = " PEEK(235): PRINT "MODE = " PEEK(236)
  4. 130  POKE 237,1: CALL 768: REM ONCE PER SECOND
  5. 140  CALL 777:S =  PEEK(239) + PEEK(238) *256 + PEEK(237) *65536 + PEEK(236) *16777216
  6. 150  PRINT S;
  7. 160  IF S <45  THEN 140
  8. 170  CALL 771